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ET 
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ലിലി 








يتضح في نافذة النموذج التالية كما هو موضح أمامك . >>> 







ഷ്‌ ജി |‏ صتخنم جديد اکا 
الاسم ب حبيبة محمد 
تاربخ الصبلاد Tes0-1T-V‏ 
ഥെ ഒ ചട്ട ! ചി!‏ 
sas‏ اأقراد الأسرة 5 


› وهذا يرجع الى استخدام ذاكرة الكمبيوتر الاستخدام الأمثل‎ RAN 
. ലി والنطفية الت اسو تجرى على هذه‎ 
7/ 





AR‏ تخزين فى ذاكرة الكمبيوة 
2 التخزينية والعمليات الحسابية 
ഛം‏ 





Data YS (ഘം نو ت‎ 


تتعامل لغة Basic. NET‏ افا ١‏ العديد من أنواع البيانات 055 8 التي يقوم المستخدم بإدخالها وتخزينها مؤمتا في 








൭: 


ذاكرة الكمبيوتر, وقد تكون هذه Ahad!‏ هن 
ومن أنواع البيانات التي تتعامل معها لغة 1&1 !82510 ‘Visual‏ 





ര! ൭൭൧൭ ൭8 





- البيانات الرقمية الصحيحة ر أرفاء 
ويعلن عنها بالآتي . ) ort - Long -,1൩199ല — Byte‏ 
ب- البيانات الرقمية الغير صحيحة — ( أرفام و (AS‏ ( غشرية) 
ويعلن عنها بالآتي : ) imal - Single‏ ف 
(")البيالات الحرفية : ١ Character Data Types‏ 
ويعلن عنها بالآتي : ) Char - String‏ ( | 
ونستخرم Char‏ عنما ثلون القيمة حرف واحر « و 5111170 عنما کلون احرف عم روف 1 البيانات الرقمية 
ونستخر م 5111110 للحروف والأرقام التى لا تر خل فى عملية حسابية ( رقم التليفون) FS 7W‏ 


String للا البيانات الحرفية‎ Char 


(؟) البياات!ا mm Miscellaneous Data Types : deguib‏ يه 
هي البيانات التي لا تندرج تحت تصنيف البيانات الرقمية أو الحرفية . YJ‏ [ 
Boolean - Date - Object ) . ച‏ ( ب 


) True/False - Yes/No منطفية مثل‎ ചെ ല്‍ : Boolean ر‎ 









Double 











Object لكأ البيانات المتنوعة‎ Date 


ا 
Boolean +‏ 


سے سے سے ست س س ജട‏ لس ജട‏ سل لس ജട‏ لل لل ل لل ل ത‏ لل لل لت ജട ജോ ജട‏ ل لت لل لت ل ജള‏ لل لت ജട ജട ജള മ ജട ജട‏ لت ജട മ‏ لل لت ل لت لت لت ജട‏ لت لت ജട‏ لت لت لت لت لت لت ت ل ل യ‏ 


0 کے = ത്തം ക്‌‏ ب _ 
n‏ کے ج 325 ص ത്‌‏ ا CC ക്ക്‌‏ ~~ لمحتت ب اشح — 1 1 
ساساة ൫ വി‏ الحاسب لجدية اطرا dS‏ کے ചത്ത്‌ ത്ത്‌ — ജം ത്തം So pe‏ إغداد الإسiاة‏ / فحفد الإا كرس 
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ملحوظة : كل تصنيف من أنوع “പേ DataType ൭൧൮‏ 
٠‏ أكثر من نوع . :. 
٠‏ كل نوع يشغل حير ya‏ في ذاكرة الكمبيوثر مثل 1 Integer‏ ] يشغل [ bytes‏ 4 ] من حجم الذاكرة . 
٠‏ كل نوع له a aa‏ وحد زأقصى من إلقيم ] تنسمى مدى Range‏ - مثل نوع إلبيان 1 Byte‏ ] حدود പ്ല‏ المخزنة 
به تبد| من[ ച (ലെ‏ الأدنى. കഥം‏ ب[ 255 പ‏ الاقصى . 





























E 
| ee TT RN | 


هي عبارة عن أماكن കി ian‏ 
لها اسم ونوع Data TYPE‏ / وقا< 


2 ا ليم الثوابت : റ്‌‏ 
لواب 4 ة مثل قيمة (ط). ൫‏ 
فيز اء مثل عجلة الجازبية الأرضلية ك سرعة الضوء - سرعة الصوت ( 


Constants 


بیوتر RAM‏ . عند الاعلان عنها بتحدد 
ن قيمة ثابته لا تتغبر أثناء سير البرنامج. 



















؟- ثوا 

: الثوابت والح‎ tugs حش ي حط‎ VI 
ററ ചലി عند تسمية‎ 

علامة ( _ ) رلا جوز علا 





١‏ أن يبدأ اسم ١‏ لع 


؟ - ألا يحتوى الاسم 
-Y‏ أن لا تستخدم الكلمات ١‏ 


أمثلة على أسماء متغيرات : 


y Spent_ mony FirstName 
. أمثلة على أن يعبر الاسم عن مضواه‎ 


- لتخزينا جموع Total‏ - لتخز ين السعر 


؟ 21൧1‏ عن الثوايت ടി 0115121115 Declaration‏ 
- يستخدم الأمر Const‏ فى الإعلان عن eld‏ لغة ا بيك 
_ نكتب من اليساركلمة 20151) ثم كتابة اسم الثابت Constant Name‏ ثم كلمة AS‏ ثم نوع البيان 
Data Type‏ ثم علامة = ثم القيمة كما هو مبين كالآتي: 






“© ( إياك أن تنس الكتابة تكون من اليسارإك اليمين ) 


Gonst Constant_Name As Data Type = Value 





1 
_ ا‎ _ ച ബി ae 5 5 
. . س‎ ഗോ کے‎ E ات‎ ട്‌ Fes ടയ — Tw അന = 
الا كرس‎ nana / كك هاا الس إغداد الاستاذ‎ ളു en ogee اطرا<ل‎ Sans awl 3 bawmail ساساه‎ 
aR = ee * جوج‎ നാന്‌ 
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سلسلة التيسبط فج الباسب oll - alll‏ الاك الإعدادج - المصل الد راسج ailill‏ 





Eps أمثلة محلولة للإعلان عن‎ 2 
© Const C Name As String = "പ جمهورية مصر‎ " 


الكود يعي: الاعلان عن ثابت باسم C Name‏ 3 الداکرہء نوعه حرق String‏ وم خصيص العيمة ഖി‏ 
" جمهورية مصر العربية" أثنا الاعلان . 
\ 
Const pi As Single = 22/7 OR Const pi As Single = 3.14‏ © 
ثابت نوعه رقم عشرى pi awh Single‏ 3 الذاكرة» 
ഡി 22/7 OR 3.14‏ الاعلان. 


© Const BirthDate As Date = #1/25/2011# 
أثناء الاعلان.‎ #1/25/2011H# الناريخ‎ aud وم تخصيص‎ Date له نوع بيان‎ Bir 







لة كتابة قيم نصية تكتب پين علامتى التنصيص لكى تطبع كما هي . 
ASA‏ قيمة تاريخ أ وقت St‏ بين علامتى 7# # 






يسنقبل قسمة കം ടം)‏ نيحسب مساحتها ومحيطها عدد الضغط على زر أمر 
]] ومحيط الدائرة 211۲ نمش نصف القطر TI‏ = 22/7 ؟ 


പരി 






-Click المزدوج‎ aid 7 الكود بالضغط على مفتاح‎ ച്ഥയ്ച(ന) 
, Button2 مر‎ 0 Click بأى طريقة أخرى ثم نضيف اجراء الحدث‎ 
Fublic 15535 ഇങ്ങ 1 ٠ 


Sub Buttonl Click (ByVal sender As Object, 





- Enid Class 
ومحيط‎ Buttoni_ Click ونكتب الكودالخاص خساب مساحة الدائرة باستخدام اجراء الحدث‎ 
. وتظهر النتيجة أحداهما‎ Button2_Click Had الدائرة باستخدام اجراء‎ 









പി 2649 291 www.quesna.org altokhey@ yahoo.com 





തത്തെ وم سے‎ ന്തം. ന്തു 
. . TE ടം CE ത്‌ ع‎ ത്‌ ص‎ 325 നാമം Rs 
الا كرس‎ nana / كي إغداد الاستاذ‎ ചതു ട്‌ പ ച ത്താം ത. اطرا<ل‎ Sand الذبسيط ي الح<اسب‎ മിഷ 
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سلسلة التيسبط مج الباسب الالح - للصف الثاة الإعدادج - الفمل الد راسج alll‏ ج 
ഡം ഖനി.‏ 12631 ,ل 


* مساحة الدائرة‎ Ls, الخاص‎ Code نكتب الكود‎ 8010001൧൦൧! في نطاق‎ (7) 
: عند النقر على 81011011 كالآتى‎ Label2 ونعرض الناتج داخل أداة كم العنوان‎ 
Private Sub Buttonl Click (ByVal sender A 
Dim Radius As Single 
Const pi As Single = 22 7/7 7 
Radius = TEXTBOX «TEXT 
Label. let = pL " Radius ” 2 
End Sub 


(Code) 395‏ حساب مساحة الدائرة 
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. م الاعلان عن می ر Rac‏ ونوعه رقمى عشرى Single‏ 
© 


الاعلان عن ثابت 0( ഥ്‌‏ أعه رقمى عشرى Single‏ وتم خصيص القيمة الثابتة له 22/7 ' 






Radius التى تم إدخالاها فى صندوق النص في المتغير‎ dc 
Label2 واظهار الناتج في أداة التحكم‎ pi * Radius A PENIS 

ol Deb‏ و بالضغط على مفتاح 55 ثم ادخال 

لإ مساحة ومحيط الدائرة | اناك سا 






مساحة الدائرة محيط الدائرة 
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1 نطاق استعمال المتخير أو الثابت يتحدد بمكان | 
- نطاق المتغير أو الثابت يحدد الأمكن المسموح ا دا جل البرنامج 
( التدريب الثاني ) هناك مستويات للإعلان عن الثوابت والمتغيران 
المتغيرات والثوابت . فظهرت النتائج . 
وفى حالة كتابة كود حساب Jas!‏ مثلاً 
بدون الإعلان عن المتغيرات والثوابت 
يعطى رسالة Las‏ مفادها : عدم 
التعرف على المتغير Radius‏ (غير مُعلن) 
والثابت أم . بالرغم من الاعلان عنهما 
فى الاجراء الخاص بزر الأمر Button1‏ بيان الخطأ الموجود في الكود (Code)‏ 
وبالتالى فهما غير معرفين فی الاجراء الخاص بزر Button2‏ 
> ويتم التأكر عن خطأ الرسالة من المستطيل الأصغر إذا وجهت pits‏ الغأرة إلى التغير أ في سطر gst‏ 


ബി a 5‏ سے 5 ee‏ _ 
د زد کے چ س کے سے ل لے CC 5-3 a.‏ = چڪ പാ‏ مومس . . 
ساساه التبسيط 3 ال<اسب لجدية d>\yb\‏ يي ന പാം...‏ ت = ക്‌‏ کک nasa / aliml alat|‏ الاكرس 
چ വ്‌ പം...‏ چچ "ˆ 5 wh‏ = 
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Label2 , Text TE ™ Radius * 2 


End Sub 
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>> تحصحيح خطاء عدم الإعلان ( كما بالخطأ കച!‏ ): 








. 

- 3 

7 SUE 
لاا‎ കം 


Private Sub 82൦൩2 Click (ByVal sender As Object بإعادة الإعلان عن المتغير والثابت فى‎ -\ 
Dim Radius As Single . ناق كل اجراء حدث‎ 
Const pi As Single = 22 / 7 


Radius = TextBoxl.Text السابق‎ ൮12511 )) 


Label2 .Text = pi * Radius * 2 
End Sub 


pi) والثابت‎ (Radius) بعد إعلان المتغير‎ (Code) الكود‎ (( Butto 






بالاعلان عن المتغير Radius‏ والثابت pi‏ على مستوى التحصنيف 
പ്പ‏ إلى الاعلان عنهما على مستوى إجراء الحدث لكل من زر الأمر 











B أو‎ 1 
E] Piiblic Class Forms 0 : റ N 
92 7 ١ 


Private Sub Buttoni |1313 لتكلا 8 اعاح‎ ൭ 
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TexTBox1l . Text 
SxT = pi * Radi 















وعند تشغيل البرنامج بالضغط Pole‏ 


vy 


ادح 5 




















ലായി = چس س‎ = ത്ത 
| Tw ട്ടം. Fal و سے ا و‎ ഞാ سے‎ aa 
سن ا إغداد الاستاذ / فحهد الإ غرس‎ ത്ത ട്ട തട ടയ ഖി 3 سلسلة المبسيط‎ 
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= ജി! sul all dnall — sabelllillill canll — سلسلة التيسبط فج الباسب الالح‎ 
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VARIES Variables المتغيرات‎ 


عبارة عن أماكن محجوزة في ذاكرة الكمبيوتر RAM‏ عند الاعلان عنها يتحدد لها اسم ونوع 0819110൦‏ 


ها أثناء سير البرنامج ويمكن أن يأخذ المتغير قيمة ابتدائية تسمى Initial Value‏ 











. أسماء للخلايا التى تطالرقيم متغيرة , تسمى إعلان المتغيرات‎ ലി? 


0 يسيم 01/1 في الأعلان عن | 
aay‏ 





: ثم نوع البيان كالآتى‎ AS تفريم كلمة‎ 2 റ 


yt) ©“‏ تنس الكتابة تكون من اليسار إلى اليمين ) 


cn 





e DimF Name As String 
WV String. حرف‎ ho N ١ في‎ ۴ Name الكود يعي: الاعلان عن منغير باسم‎ 
@ A 


e Dim Total Price As Single 


الكود يعي: الاعزان عن منغير نوعه رقمي عشري (Yoga 3 Total PC Nes ‘Single‏ 


e Dim Today As Date - - 2011# 
. وكديد قيمنه‎ BM 3 1 ഠഠ്ദ/ باسم‎ Date نوعه ناريخ‎ nsw الاعلان عن‎ a الكود‎ 






. المتغير العددى ( عدد صحيح او عشرى ) يأخذ القيمة ( صفر)‎ ١١ 
. ) سلسلة حرفية فارغة‎ ( " " Aa المتغير الحرفى يأخذ‎ ١ 
I 


mS സ്ത ന്ത ത്ത ന്ത ഞ്ഞ By 
AN 


me |‏ _ کے رك ب ത 7 r‏ 9 
e = 0‏ ج ي سے = - es‏ چ کے . حج» س 5 
ساساة التبسيط 3 الداسب لجمية ചേ.‏ کے کڪ പം.‏ م ° = 5س പക‏ ا إغداد الإسiاة‏ / فحغهد الا كرس 
ര‏ کے ج Sg‏ کے 
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SOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOS SOSOSOSOSOSOSOSOSOSOSOS 





© © © ©( © ©( © © © © © ©( © © © ©( © ©( © ©( © ©( © ©( © ©( © ©( © ©( © ©( © ©( © ©( © ©( © ©( © ©( © ©( © © © ©( © ©( © ©( © ©( © © © ©( © ©( © ©( © ©( © ©( © ©( © ©( © ©( © ©( © ©( © ©( © ©( © ©( © ©( © ©( © ©( © ©( © © © ©( © ©( © ©( © ©( © © © © © ©( © © © ©( © © © ©( © ©( © © © © © © © © © © © © © © © ©( 








www.Cryp2Day.com 
موقع مذكرات جاهزة للطباعة‎ 


© © 2 © 2 © © © 2 © © © 2 © 2 © 2 © 2 © © © 2 © © © 2 © 2 © 2 © 2 © © © 2 © 2 © 2 © 2 © 2 © 2 © © © 2 © 2 © 2 © 2 © © © 2 © © © 2 © 2 © 2 © 2 © 2 © 2 © 2 © 2 © 2 © 2 © 2 © 2 © 


سلسلة النيسبط فج الباسب oll - alll‏ الاك الإعدادج - المصل الد راسج ailill‏ 
www.quesna.org altokhey@ yahoo.com‏ 31 , 








ج تندردياك وصسصشاريح الاسلان عن ലവ‏ 


کے aw VB.NET 295 wisi‏ للاعلان عن المتغيرات sll‏ نحتاجها لاستقبال البيانات التى يقوم المستخدم بإدخالها من خلال نافذة 
Cae‏ العو جا ചക » ൭‏ 6 : 1 


പ‏ :)1( بتصميم نافذة النموذج كما يلى 


النوع 


عدد أفراد الأسرة 




















Ne ee U_Name (String) نص‎ 
U_B_D (Date) 5| (൭ 
U_Gender (Boolean) منطقي‎ 
U_C_F (അദ) رقم صحيح‎ 
9 


لحدث t Procedure‏ 508 والذى يطلق علية أيضاً معالج الحدث Event‏ 
ضغط D5 00൦‏ زر "تسجیيل". 















9J 6101 (BYVal ser 











Private Sub But 
5 


e U, Name ത്ത Zine 
م‎ 0 
nder Boolean | 
Integer 














YE Assignment ج التخصيص‎ 


أولا : تعريف التخححيص : هووضع أو د 
ثانا : جملة التخحصيص : 
- هي عبارة عن طرفين بينهما علامة ( 
الثابت الذى يستقبل أو ൮.‏ فيه القيمة 


مت يتضح من الكود أنه نم പമ‏ حاصل صرب ار مین ( 3 , 5 ) للمتغير Area‏ 
8 أنواع القيم فى جملة التحتخصيص : 





قيمة مجردة - قيمة من متغير - أو قيمة من متغير Varible‏ 
خاصية - أو قيمة من تعبير Expression‏ أو خاصية Property‏ 


തത്തെ ود سے‎ ന്തം. 
. . TE ടം > > കത്‌ ع‎ ത്‌ کے ع 325 ص‎ Res 
الا كرس‎ nana / كص كي إغداد الاستاذ‎ ട്‌ ° سے‎ ത്താം ത. اطرا<ل حل‎ Sans ال<اسب‎ ൫ الذبسيط‎ ദിയ 
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Variable 


> تدريبا على تخصيص قيم لاستضيرات Variable‏ 


ലം yg SA പ്പ 
dd لحت‎ os te 1 0 റ്‌ 
ل‎ 13 
ന! 
Din J, Sender ha) Boolean 
‘a 
അക്കാ | et UEP [LEFT تع بي‎ 


TO AR VA 












Dim is 55233 
Daim സിം Date 
Dim ls der As Bool 





Dim 8 F As Tnteger 





کد ت ت ت ت ت ت ت ت ت ت ت ت ت ت ت ت ت ت ت ت ت تت 





.10 چ 515272255986 = 





U Nam 5 | a حب‎ | 
9 ب‎ a ളള 4 TRE EPR REE SER 

൮2 ൨153... (ലട ead അ True Then 

U Gender Tr و‎ ന്‌ ae حل‎ [ , HE 1 
End If د دنا‎ ----- 
TF RadioButt س د‎ False _ Then SE 

U Gender alse جملة تخصيص للم‎ 
End If sss 
U_C_F = TextBox3.Text* 1 تخصيص‎ Alaa 

End Sub 


ركز كويس : 


വ ¢ aw If باستخدام جملة‎ RadioButon1 لأداة التحكم‎ Checked اختيار الخاصية‎ ൭ 
. True القيمة‎ U_ Gender يخصص للمتغير‎ True القيمة‎ Checked إذا أخذت الخاصية‎ ٠ 
. False القيمة‎ U_Gender يخصص للمتغير‎ False القيمة‎ Checked إذا أخذت الخاصية‎ ൭ 


_ ت ت سے س سے ലം ച്‌‏ س 9 
û‏ الذ يي ج ج س rr ര‏ 53 چ > چ کے . 1 
ساساة التيسيط 3 الحاسب لجمية യ‏ کے = سو എ‏ مسح ത്ത്‌‏ ان ی إغداد الاستاذ / فوفد الاخرس 
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1 ١ ‘> :Variables الصتصضيراك‎ plains 3.2 


بتعر يل نافزة النموذج OVS)‏ لعرض قيم التغيرات فرع b>‏ عنوان Label5S‏ 
)١(‏ ولعمل ذلك نقوم بإضافة أداة نمكم العنوان ലാലി‏ الى نافذة النموذج SUS‏ : 





النوع 


BorderStyle ۴ 20 


إجرا الحد lial‏ 00 على الزر تسجيل. 


طير الكود الا കളവ്‌‏ : 
جلم الكود التالي في نهاية الأجهام 




















Me.Label5. Text = UserName &vbCrLf 
UserGender & vbCrLf & UserNoF amily 


| ഇ മുത്തു യയ ര്‍ത്ത തുല അ التو‎ ê 
Dirt UserName Tian جمس‎ os 

Dim UoerBirthbDace As Date 
Dir UTasarGender Re Boolean 
Dim 1 جح 23 22 جه‎ കനല. As TESTED 


KEP rt 31 اا كك‎ tr & شي‎ prs grup 
Tasca Fame = bla. 7 355 . Tage 
Tari that = He. Tota 
LT Hail ജായാ. نه تمت‎ പവി 
UTserGender = True 
Else 
TaerGender mm Fala 
Ent IF 
UoTecrMolaniLly അ He. ഞാ 


a sul pata UE 8 tm തക. ഹ. 


الكود المقابل هو جملة 
لجموعة المتغبرات الخاصة 
بالخاصية ]© | لأداة نحكم 
Label lat!‏ 


Tot 


Sue The 















Fie . Label 5S .- Toc = Un TE وت‎ & bert ഈ & UoorBirthDacs & സാ. ച 
17 ജതി & സ്ന. a യ്ത ഇല യ്ത Tyr 
En Sub A 5 
1 ee 2 മ e ٠. ൭ 
Remarks ك2 } حط هن ل 36 السابى أا 4 عدن 7 المتغيرات وتخصيص قيم لها اأيعاكتاية ملتحظات‎ 


A 





നന്ന്‌ Form عن 2220 النموذج‎ yas Me | ° 

tas A lagi معامل الربط | :8 | يفصل بين المتغيرات (يستخدم‎ ٠ 

٠‏ الكلمة المحجوزة | ۷00۲1-۴ | تستخدم في إنشاء سطر جديد 

٠‏ تستخدم علامة |_ | حتي يمكن كتابة سطر الكود على أكثر من 
للتنظيم وتسهيل عملية قرادة الكود Code‏ 

© يتسخدمالمبرمج الأمر ( REM‏ ) أو العلامة ( ' ) لكتابة ملاحظات يمكن الرجوع إليها داخل الكود » ولا يتم تر جمتها. 

















)5( شغل البرنامج بالضغط على مفتاح FS‏ | ڪڪ fe നാ‏ 
تعمل a . Start Debugging‏ وعد 8 

(1) ادخل بيانات استمارة التسجيل. ത്തന‏ ! 0 
ثم اضغط زر تسجيل تت 


وإجهة المستخدم بعد إستيقاء مدخلاته 


= چس سس ے അത്തെ‏ 
Res‏ کے ج 325 ص ത്‌‏ ع TE = റ്‌ ത്‌‏ . . 
ملسلة التبسيط 9 الحاسب വിഷ‏ و 9E‏ جج ڪڪ a‏ إغداد 1 / nang‏ الاخرس 
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345 العمليات وفقا للترتيب الآتي: 


-١‏ الأقواس من الداخل إلى الخارج. 


-Y‏ الأسس. 
'"- الد ا مة من اليسار إلى اليمين. 
4- الجملع والظرج من اليسار إلى اليمين. 


45 
ل 





کک ; عملية حسابية و 212 








Se حالة إذا ما‎ ss 

أيهما ينغن أولا عملية പി‏ 1 ملية الجمء؟؟؟ 

يئم ثنفذ عملية الضرب اول نيل | الات ഡം‏ نصبخ النليجة [ 11 ] ധിം‏ إذا وضعنا أقواس بهذهالطريقة 2 * (5+3) 
ia‏ ما بداخل القوس Vol‏ فتصبخ ധി‏ 161 ] . 







. 2 ١ ٠. 
Expression أولويات تنفيذ العمليات الحسابية عند إنشاء تعبيرات‎ 2൧.൦ سبق أنه من الضروري‎ 
لأن النتيجة ستتغير 3( هذه‎ Logic 511015 حتى لا تقع أخطاء من النوع‎ Assignment , 







! 
0 Errors خط‎ 


أبنائى الطلبة والطالبات : 
عند 245 الكود 001٥‏ لابد من ച്‌ clos ay!‏ 
وذلك حتى تتجنب الأخطا التي مد تنسبب في ظهلورر ساد 


الأواعر أو الحصوك على نتائج AS‏ وقر لا يتم تشغ 
وهي : الأخطاء ر اللغوية ‏ المنطقية ‏ أثناء التسغيل ) 


53 الاأخطاء اللعوية Syntax Errors‏ 
وهى أخطاء فى الصورة العامة لأوامر اللغة و 
غير سليمة كما هو موضح AY‏ الأاتية: 


1- Din x As Single 


١‏ - فى اطثال ١‏ م الإعلان عن Dim ഖ്‌ wf ധിം X nsibl‏ خطا 
Const x As Single‏ -2 
؟ - وفى ദ്ധി‏ م الاعلان عن ല്‍ ധിം × ധ്ധി‏ خصص له قيمة أثناء الاعلان 


© وللتغلب على هذا النوع من الأخطاء يساعدنا IDE‏ حيث لا يسمح بوجود أي خطأ من هذا النوع .وهو 
سهل الإكتشاف أثناء كتابة الكود . 


— 59 جيه يه ങ്ങ ന്‌‏ لتكت إل 9 
യ! û‏ ج چ سس 2 PRC, 2,8 53 Eee Be‏ کک er eg‏ . : 
سلسلة اللتبسيط 3 الداسب ആ con == മം. Saas‏ م 108 عت کڪ س إغداد الإسiاة‏ / فحغهد الا كرس 
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و 
سلسلة النبسبط فج الباسب nll — alll‏ الثالةالإعدادجِ - الفمل ailill awl dl‏ = 
a 01112649 231 www.quesna.org___altokhey@yahoo.com‏ 
7( الأخطاء المنطقية Logic Error‏ 

ച്‌. عندما‎ a تؤدى إلى نتائج غير سليمة عند استخدام البرنامج وهذه الأخطاء‎ wf 

على نتائج Las‏ بعد تشغيل البرنامج. وذلك بسبب صياغة تعبيرات حسابية gi‏ منطقية 

بصورة خطا فيؤدى ذلك للحصول على نتائج خطا 

Dim Radius As Single ലിക حهاب مصاحة‎ കയം عثال : فى‎ 


عند تنفيا N!‏ ن¿ یعطی أي رسائل خطأء وسوف يعما 7 / 22 = Const pi As Single‏ 
نتيجة: ولكذو ട്ടു‏ | جع ذلك لأننا في معادلة حساب Radius = 1812011 . Text‏ 
ل 
١‏ 


مساحة الدائرة ക‏ علامة (+) بدلا من علامة(*) 2 ^ Label2.Text = pi + Radius‏ 


End Sub SY 
. وللتغلب على هذا ا وغ فلن الإ طاء يجب اختبار البرنامج بإدخال بيانات سبق التأكد من صحتها‎ © 
م لا‎ 
tha 


C3 









9 خطاء Runtime Error_‘Junuiuil| ച്ചി‏ 
وهی ا ല്യം‏ فقط عند التشهيل . 
وجده A۹‏ الأكواد Code‏ الت يتم 


( ١ 
Asignment aus digs فيها‎ 
Byte ൦ഡി من‎ ച്ച്‌] ച] قمحلا : عند‎ 
| 


و പാടാ‏ لو ور ടി‏ 
به أي فل من ( 93 ടി‏ | 


aS 















تخصيص مدخلات المستخدم لكل متغير' 
arabic = TextBoxl. Text‏ 


OverflowException was unhandled‏ .4 خصيص تاتج مجموع المتغيرن' 
Label3. Text = arabic + cal Ar‏ 











thmetic operation resulted in an overflow, 






لة 
v‏ 


A WE SEER, 
aun 


























١ 
|) (| إل‎ ടു 


و 
Aaa‏ مجحجموحّ در جات Ca alla‏ الكيِياتاكت ١‏ 







( > حيحة‎ ah aaa 


2000 = == س = es‏ 
5 1 ے ല്‍ = 1 ക്ക്‌ eA => മം ത്‌ ര - നം‏ ت ٠. ٠. a e‏ 
ساسلة التبسيط 3 الداسب لجمية اطرا<ل چ ر ڪي جا പ പഞ്ഞു‏ يي لل وت إغداد الاستاذ / gall nana‏ 
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سلسلة التبسيط فج الباسب sill‏ — للصف الثالك الإعدادي — daall‏ الدراسع الثانعٍ TE‏ 
gal. 011126492313 _ wwwquesna.org_——_____—_— atokhey@ yahoo.com _‏ 3] 
]£3 ھچ 


(2 60 قتشترط VB.NET പ്‌‏ أو يڪو نت JST‏ متغير_ اسح وتوح ടട‏ كتليياتاادت രി‏ ف يتح إدخاتھا۔ 





cosy | (١ ഒ) |‏ ڪن المتغيراات في لغة VB.NET‏ يساحعد في ترشيد استخداح ടിക‏ الكصييوتر ‏ 


حبر 
بي 


ey!‏ عن المتخيرات SY AAS വം‏ لخة VB.NET‏ تتحرو 


 اًيتاقلتو‎ T= تو‎ 


5 


/ wha 







a 
7 കിടി 
بد جد د‎ svar 
ആത്ത... لها سيت‎ 


. 
تمر 
4 
4 
ب 


PA PN PN سي‎ ടം | جکر حير | یر‎ എ എ A 
a ww | വ്‌ ക بي‎ 


Saas e 
A 4 





ET 
€ ൮ vy) 
(൮ vA) 
( ൮ 


0 9 بر اا‎ 
ECE കി اغنا‎ 
sical Error AN 1 تتيجة‎ - ന്നു 
ത്ത്‌ AY 


الخطأ الذي يظهر el‏ تشغيل أو 


(നഴ) 
-Syntax Error 


+ VB.NET الذي يظهر أثناء تتفيذ برنامج‎ Uaat 


. time Error 


A‏ کر کر | پر 
بي ١‏ ا | سيا 


re الإاجاية المتاسية الإلاكمال كل حيارة مما‎ ചക വി 
AVS قيمة أسعار الأدوات المكتيبية يمكن تصنيقها‎ (൨) 
AS رقمية غير صحيحة حج-- متتو‎ ടാ أ- رقمية صحيحة‎ 
: قيمة أسماء المواد الدراسية يمكن تصنيقها كيياتات‎ (൬) 


ساساة ൫ പാ‏ الا<اسب as and Tos dS\yb\ Aan‏ ڪي لحك wand / ali alae| r‏ ا غرس 
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ha : قي ذاكرة الكمييوتر يحدد‎ GBS الشخزت‎ Clan) توع‎ (YT) 





1- حير تخزينتي ومدى قيمته ടാ‏ اسم وحيز_ تخڙيتي ജു‏ حيز تكخزيني وقيمته 
)5( الصيغة الصحيحة للإعلان عن متغير المرتب Salary‏ هي : 


Dim Salary As Integer أ‎ 








Dim Salary As Byte 
Dim Salary As Decimal 


: هبي‎ City حن متغير العتوان‎ AS > തീ 


റ 


Dim City As String 







Dim Senger As Decimal 





Di Sapder As Integer 









Di ender As Boole 
: هي‎ F_Name عن الاسم‎ പയ്യ 
ا‎ Dim 


تج 


ET كت تكد‎ പ 







പ 





E 


NET Ast: کو د‎ 


FE urn tine Error —= 
IN قي قاتج تشغيل کو د د‎ ചാപ്‌! CN) 





Syntax Error —1 
Logical Error — a 
1 പണ tine Error —= 
- هو‎ "മര = 3 ഷം " اتتهاتي كلصتخير << تلمعادتة‎ جعتاتت١‎ )١ YY 
و و‎ -3 
TE يد‎ 
നട ത്തു 
കെ "YT = 16— 12 / 4 + 2" تلصعادكة‎ ۷“ പര്‍ കി اتتاتج‎ (NYT) 
ww — 
س هه هو‎ ലട 
+ .چ‎ —— 


c= ച്ച്‌ aa "Dim >< As String" متغير_‎ പാ. പിച്‌ Alaa (൨5) 
P< A و تو‎ STINT س متخير_ اسمه‎ 


= چ سسچ PRE a‏ 
E‏ يج ج ج س ل وم ا ی چ > >-> ج چ ടാ‏ — . . 
a‏ التبسيط 3 الداسب Sand‏ اطرا<لى کے کک പാന ib‏ إغداد الاستاذ / nana‏ الا كرس 
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Nl o ND a alle hlle belle‏ ق 

ലം 

سلسلة hill‏ مج الباسب الالح — nll‏ الال الإعدادج — العمل الدراسج ailill‏ 9 

© 8111 26 49 231 www.quesna.org ا‎ com 

©) kk o 

ലം Dim Y As Decimal —Î 

YT AS Decimal — 3 

8 Dim Y = Decimal —= 

ലം : الاسم الصحيح تلسصتغير اسح أالتطاكبي‎ പാകിയ 

൭ 

0 st name —1 

6 

൭ 

6 

3 

6 

൭ 

6 

൭ 

6 

൭ 

6 

(كتتائييكت ص حيحة A> La‏ - 0 

൭ 

6 

൭ 

6 

൭ 

6 

൭ 

5 

آتشایت اترياضىي طط تستکدے اتكون : 

ലി Pi As Single —‏ ل 

4 Dim Pi As ലിക == ൪. 15 

ലം : تستخدم اأتكود‎ ഹ്മ! ناذيية‎ | CY) 

© 

6 

൭ 

6 

൭ 

6 

൭ 

5 

بقيمة ابتداتية YT‏ هو : © 

൭ 

6© 

൭ 

6© 

൭ 

6 

൭ 

: Uaat} re قي نتيجة يرناه‎ Ua Aas 14) (YY) 

6 

൭ 

Syntax Error أ‎ 

Logical Error — 

مسح ب Run time Error‏ ب 

0 s"Dimen ൧൭൭. As Byte" ١ كتا‎ Si പക്ക്‌ التي‎ UA رسائة‎ (YY) 

© 

Syntax Error —1 

Logical Error — 3 

8 Run time Error —= 

© 

. Y = 12-2 + 4/2" اتتاتج التهاتي للمعادثة‎ (YE) 

6 

21 ا پټ 4 

൭ 

6 

3 Y = 12  )2 + 4( / 2 " التهاتي تلمعادئة‎ ഭാഷ (Ye) 

൭ 

6© 

1— 12 هيهو 7 9 

© 

| ee aa 

രി ക്‌ A STIS س‎ 0% 4 7 tS 4 0 ഉ 4 

op (( وأتوبٌ إليك‎ വ്‌; RES أن لا إله!‎ Ag اللهم وبحمدك ا‎ CL oss (١س كقارة المجل‎ cea 
| ഷ്‌ ഷ്‌ 2 

© © ൭ 

8 «How perfectYou are O Allah, and | praise You, | bear witness that none has the right to be 
| 

s =worshipped except You, | seek Your forgiveness and turn in repentance to You. 

3 

© 

ലി താ പാപ നല عويب‎ മ ശാം പ 

ത്ത 7-7 ക ട്ട — പാ പാസ്ത‏ إغداد الاستاذ / nana‏ الا غرس 

5 ت a‏ == عيبت ڪھ 
© © © 2 © © © 2 © © © © © 2 © © © 2 © © © 2 © © © 2 © © © © © 2 © © © 2 © © 
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سلسلة التيسبط فج الباسب oll - alll‏ الثالم الإعدادج - المصل ailill sul all‏ 


www.quesna.org altokhey@yahoo.com 
جيك . = = ے‎ തള 
کے‎ വ سک‎ 


Branching, EF ii 
2» مقدمة : أبنائي الطالبة والطالبات‎ 8 
أننا كثيرا ما نحتاج الى التفرع واختيار تنفيذ مجموعة خطوات بناء على‎ Flow Chart درسنا في خرائم فق‎ 
ولكن مع‎ Algorithm بالتفرع ماهي إلا خطوات الحل‎ yal! ൨00൭ سؤال معان لم أن كتابة الكود‎ 
.... . صياغتها‎ Ady lag الالثرام ا بلغا ب مه‎ 
0313# زا ا ا ا‎ 1010 Rc Te Be ل‎ 











me 





. : Nd കയി! فى لغة‎ disco برصديا نهستخدم جمل‎ PETIA | 
| If... Then... Else . O15 ؟ - التفرغ باستخام‎ If... They A -التفرغ با‎ ١ | 
| Select ...Case ONS التفرغ باستخام‎ 7൫ 0 __. 






الشرطي Expression‏ 7 0100 
+ ( إذا كان ത്ത്‌‏ أب നം‏ ...7 3 
x‏ ( وإذا كان ناتج التعبير الشرطى FalSe Aas‏ ) يتم ചാ‏ الأواأة© ال 
x‏ تستخدم جملة TREN‏ ...11 البسيطة പ‏ 6 اختيار واحد (بديل وا< 


ETE Condition Expy ions التعبيرات الشرطية:‎ 7 


التعبير الشرطى هو جزد من كود യ്‌! 00൦‏ ما صواب TrUE‏ أو > 8 Falsé‏ وذلك sa‏ ل قيمة 
خاصية Property‏ أو متغير Variable‏ أو بیان 0 


End If حتي الوصول إلى‎ The 
(تخبر بانتهاء البرنامج)‎ Ene 











مثالم : التعبير الشرطی 50 => Degree‏ نانجه صواب © 
ويصبخ ധി‏ حطا False‏ إذا كانت ൧൧ 1)൦ ഇല്യ! aad‏ 


كا معاملات المقارنة في الفيحوال زط : 


നും venn pen‏ م 





3 1 
aa) | 
| EE EB 
١ 

1 

1 


X أو‎ Deg -و>و< شل‎ ര قيمة عتغير أو ثابت مجردة ناتجعبير‎ ജു നി 
| os cence 1 sre sees — 
الا كرس‎ nana / إغداد الاستاذ‎ പാത്ത EE തി م‎ ee _ حح‎ d>\yb\ ساساه التبسيط ي ال<اسب لجدية‎ 
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= ailill sul all الال الإعدادج — الممل‎ nll — سلسلة التيسبط مج الباسب الالح‎ 
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۳ പ صلامات‎ (൩) يوجد‎ 


Or‏ = آکیر سن 


Fa > Orr‏ سن 


variable أصغر من أو يساوي‎ >= | If B <= A 
Or ستخور‎ 
or If BE =, 
سعد آڪپر منت أو يساوي‎ പ 
Constant or 
منت تير‎ Mach 
يساوي‎ = Or Exprassion HO <> A 
يا يساوي‎ >< ര്‌ 


| dl CA 

0 يوضح كود جملة If .. Then‏ المكاشيع لخريطة التدفق . 
Oks sh ©‏ حلولة عليم تعبيرات AS‏ : 

ALI VON 


False ¥00 < > 0‏ حيث أن القيمتين متساويتين 


١ 
أن القيمتين غير متساويتين‎ sus സല 300<>100 VN 
രി ] 0 








രു rt EE 


١ 





h A 


الططلوب عمل برنامخ لإدحال الدرجة وفى ധിം.‏ ما 09% الدرجة اکېړ من أو نساوی 0١‏ يعطى صندوق Ww)‏ به 04 SV‏ 


4 
7 قم بإنشاء مشروع يحتوى على نموذج ۳۴0۲۳ 
MessageBOX \ww‏ 





والمطلوب عند النقر على زر" نتيجة aay‏ صندوقٌ ر 
به كلمة ناجح إذا كانت الدرجة اكبر من أو تساوى 50 
هوف Code കച്ചി! Lida‏ بالاعتماد على خريطة التدظف . 5 








ഠി 
Private Sub Buttonl Click 


Dim x As Single 

x = Me. TextHoxl . Text 

Tf x >=— bl Then 
MsgBox ("ee Lo") 

End If 


ത്തി ക س‎ ത്തും = en 
5 ളം حيو‎ ത്‌ کے‎ E a 4 ക്ക്‌ ee > ا‎ ത ع‎ നം നം . 98 
الإ غرس‎ nana / إغداد الاستاذ‎ പന്ത چچ جڪ‎ ie വി ملسلة الأيسيط 3 الحاسب‎ 
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| ` ۴5 تحميم البرنامج ورسم الخريطة وكتابة الكود البرمجى يتم تشغيل الرنامج بالضغط على مفتاح‎ ച്ചു. 
. في كل مرة نلأ حظ‎ Sar آو 950 75(ثم اضغط على زر‎ ٠ أدخل القيم:‎ -- 
: الآتي‎ yw < 
أفل من 50 حيث أنه عندما يكون نانج الشرط‎ amd عند إدخال أي‎ MessageBox عدم ظهور صندوق الرسالة‎ 
Procedure ബട أت إنهاء‎ - End Sub وهو‎ End if ൭ 19൦ 





Private Sub Buttonl 2:13 عات‎ (ByVal send 


Dim x As Single 
x = Me. TextBoxl.Text 
=p TT x >= 20 Then MsgBox ("pes 7) 


End Sub 


IF — TIE I TLS Wk 


~~ 





تلف ها നന്ന‏ 1ع سيتم تنفيذه إذا كان ناتج تنفيذ 
se‏ يتم تنفيذ SPS‏ 00062 إذا كان ناتج تنفيذ الشرط .False‏ 


If conditional Expression യ: 


adv 
a E cross 2 --- لصميغة العامة هذ‎ 
Code1 True الشرط‎ dis دتعي الكود إذا‎ Hl 
Eee പി 
Code2 | False الكود إذ لم يتحقق الشرط‎ | 


End if ചം ال يسيم )) || | ق‎ 





الاسنخدا 
تستخدم SE‏ 













< عند وجود اختيارين‎ If.. 

















: al) [൨ 
Ue) كان ناتج الشرط أو التعبير الشرطم صواب‎ ie 
(False) #إذا كان ناتج الشرط أو التعبير الشرطى خطأ‎ 


Else كلمة‎ പ്‌ The എ: يتم تنغيز الأوعر التىم‎ ) 
End If പടട Els 






Dim XxX AS Single 





രത്ന وو سے‎ ന്തം. 3 ട്ടം 
. 0 عور‎ പോ ٭* کڪ‎ നം, ട്‌ N لیے‎ ണ്‌്‌ چ سے‎ i 1 3 
الا كرس‎ nana / ةاiسإلا سے © إغداد‎ a ca د سے يوه‎ നാട = اطرا حل ح‎ Sand ساساة التبسيط 3 الحاسب‎ 


© 
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www.quesna.org_______________________altokhey@ yahoo.com‏ 31 | 


wow <‏ الآتي : 
١‏ -أننا Else ണി‏ والي تعنى വ‏ يليها 8 حالة نائج الشرط Din 1 As single False‏ 
؟-يمكن als‏ جملة 91 واحد بدون E ‘gh ws End if‏ 
( وذلك جعل ۴| والشرط و Then‏ و Else‏ نفس السطر . ) 1 "00 Then HegBor (Treli") Else‏ ا => 1 If‏ 
If...Then ... Else alaainle 24951.‏ 
/السابت قم بتنفيذ مشروع Project‏ يكتوى على موذج يستقبل قيمة من 
ثم يتم خزينها فى المتغير N‏ واظهار عبارة 'الرقم زوجي" أو 'الرقم فردى' 


الكود (Code)‏ ويكتب في اجراء الحدث 
click‏ الخاص بزر الأمر (Button)‏ 
































1 | 

Dim N As Long | | 

N = Me.TextBox1 .Text 10൪) പ്രക! المعامل‎ ' 

If N Mod 2 = 0 Then | 06 RA aan ا‎ 
MsgBox )" ("الرقم زوجي‎ I الباقفى‎ | കീച്ച്‌! ob ols يسىحدم‎ | 

Else | 0 4 | 
MsgBox ("ച ("الرقم‎ 0 : 

End If | 0 | 

١ 10Mod3=1 1 

: _ 7 | 

an | 

| لهاواصبح | القسمة على 2 بدون باقى من خلال الشرط 
| وهكذا | إن باقى القسمة (-صفر) وهذا معناه iB‏ 
നി മ A I‏ 5 
Mod‏ 4 | رسالة (الرقم زوجی) فى صندوق رساله. 
Mo |‏ 49 | 

Vod |‏ | وى صفر. فهدا معناه عدم 

١١ 9 Mod 1‏ 4 (الرقم فردى) فى صندوة 
ظ 0 : لرقم فردي) فی صندوق 





Se pp: cD Oc cc cc RC ലി‏ وه RN E‏ ل ا ل ا ل ا ل ل ل ا ل ا ل ا ل ا ل ل ل ا ل ا ل ا ل ا ا ل ا ل ا ل ا ل ل ل للك 
ജി‏ ل 
لل 
لل 


Now :‏ : مطلوب عمل مشروع يستقبل 


: يم MsgBox lug‏ 0 فن الأقواس؟ 
൯ 'വ്വി*ഡ :‏ : ندمة : 1 
൮ :‏ لرقم زوجي و AAI‏ صلدوق : = HourWorked‏ : 


: رسالة بہالرقم فردع-إذاكان الرقم : 
: فردي. مع رسم خريطة التدفق الدالة : 
: على ذلك » : 
ْ الحزم : : 
Private Sub Button1_ Click... :‏ : 

: Dim X As Long 


Salary = HourWorked * 5 
: End If 


Total تنفيذ التعليمات قيمة‎ دعب-١‎ ١ : IFN Laaannnnnnnnnns 2 =0 Then 
Bn = HourWorked قٍِ 4 الشرط‎ ١ : ( Fe = هع‎ - fo) : ("الرقم زوجي") 2*8 : : ھی‎ 
യ; ഗോ If..Then...Elase #-جملة‎ : + .anusnnsnnsnssnnssnssnsnse 
( Equal - True - ee : ( EndIf - End Else - End بكلهمة:(‎ : : [ിട28ഠാറ്‌”........................... ") 
നനന = Salary #-قيمة المتغير 4810/1005 هى 0 شيمه المتغير‎ : : EndIf 
(Yeo = Foe = Yee) ; ; ട്ട. O 


ടി ۳ : 
0 0 9 ae سے ع‎ e — nn _ — ൧ ١ 
٠. . هه عر‎ ടത ര്‌ ക്ക്‌ Ee ടാ کے‎ 1 = 
الا كرس‎ nana / إغداد الاستاذ‎ = ച اسع ع ج‎ aE ൦ d>\yb\ ساساه التبسيط ي ال<اسب لجدية‎ 
= ET Bp کڪ‎ >> ന്‌ = = 
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تستخدم عندما يكون التفرع معتمدا على قيمة متغبر Variable‏ واحد وتوجد شروط كثيرة (أكثر من شرطين) 
كما أنها توفر AALS‏ الأكواد C0٥١٠‏ وتجعلها أكثر سهولة ووضوح . 





Select Case Variable 
Case valuel sua 

الكود الذى سوف ينفذ إذا كانت قيمة المتغير مساوية للقيمة COE ١‏ 
الحالة الثانية Case value2‏ 

الكود الذى سوف ينفذ إذا كانت قيمة المتغير مساوية للقيمة ؟" COdE‏ 
Case value3‏ 

code 





Case else 
code الكود | ف ينفذ إذا كانت قيمة المتغير غير مساوية لكل القيم السابقة‎ 


End Select نهاية الجملة‎ 
0 


١ 
. la حتى تتبعها بمعامل‎ )0( vg بعها معامل مقارنة . وعدما‎ 
والخطأ : 0 وا‎  Case\ls 








bab Yaak ©‏ ا : كح 

نستخدمها فى حالة التعامل مع نطاق ا 
أمثلة صحيحة ل Case 0 : IS‏ و 
حالأت اختبار Case‏ 


PA ET |_0 مال‎ 












ത്ത ന്ന്‌ 
റ چ‎ Case is >= 55 . مثل‎ 


مؤشر الإدراج داخل 
© الحدث ComboBox ob} SelectedindexChanged‏ : 
هو الحدث الافتراضي للأداة ComboBOX‏ ويقع عند تحديد أي عنصر من عنا 
وعندها يتغير رقم ر ترتيب ) العنصر المحدد ر المختار) INCEX‏ من القائمة 


: ComboBox لأداة‎ Selectedindex الخاصية‎ © 


تعود برقم ترتيب العنصر المحدد من صندوق التحرير والسرد في الفهرس 





Index ധ്യ ©‏ 
فى الفهرس INOEX‏ تبدأ العناصر من الترتيب ٠٠‏ و١‏ و' و ..( أمافى الأداة ComboBOxX‏ تبدأ العناصر بترتيب ١١و"‏ و" و ..( وهكذا 
ومثال لذلك ‏ إذا كان صندوق التحرير والسرد يحتوى على عنصرين ١(‏ ليل و" نهار) فإن ترتيبهم بالفهرس يكون ر٠‏ لليل و١‏ للنهار) . 


a 5‏ — س چ 5 0 5 

5 & = ب پو ت سے به 3 ع : പം‏ عمجححي ج 

ساسلة التبسيط 3 الداسب لجمية ചി‏ کے a Esse‏ ~~ 194 کے “لبت وو ا إغداد الإسناة / nana‏ الا كرس 
ത ഇതം സ്ക തം =e‏ کے 7 عد . د غ سے = 
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برنامج لإدخال درجة الحرارة من خلال مريع النص 17110171 © 1 ثم النقر على ച‏ "اختيار 0 
يعرض في 1231612 മ‏ فوق الصفر "أو عبارة" تساوى صفر "أو "മ‏ تحت الصفر ؟؟ ګيف ذلل ؟؟؟ 


Private Sub Buttonl Click(ByVal sender As Sys 
Dim degree As Single 
Try 


കടം Case 
Case Û 
Me . Label? . Text 
Case Is < Û 
Me . Label? . Text 
Case Is » Û 
Me . Label? . Text 
١ End Select 
Catch ex As Exception 
125൮1302 "7. ("ادخل‎ 
Me . TextBoxl . Focus (| 
Me . TextBoxl . Text = "" 
End Try 


End Sub 
نرعن عن رعز اغَناذ القرار » حبث تو روز الناذ القرار على‎ Td رھ‎ 
. عا عن السابی‎ Coe سيب قبمته ع إل ود‎ ലി ചക سوال‎ 
7 










ത. 


من خلال دراستك في ماذة 


من المفاهيم مثل المجرة وا 
ന്ത‏ 


Select Case ComboBox] .Selecte 
Case 0 
TextBoxl Text = "A: 










ارشادات : 
*اختر ميمة الخاصية Multiline‏ 
لصندوق النص تساو ی True‏ 

















*أضف العناصر (مجرة -كوكب pa പ.‏ عتم اضفر حجنا بن الكركب برتبط با يفط إلكاذيلية play‏ ضر pail!‏ الساقط حل ടി Text‏ 
NI ക [ ക്രീ ٠ ٠‏ 3 3.88( 
-نجم - نيزك - شهاب) من خلال TOT‏ 5 
الخاصيةو2:ررهغ1 لأداة التحكم و اسن صا sean a‏ 
tase 4 7‏ 
ComboBox‏ "هعم ملب كببر Us JOT‏ عند احتكاكه بالغلاف الجري" = TextBox Text‏ 
Case 5‏ 


*اكتب الكود التالى فى إجراء الحدث 
SelectedIndexChanged‏ الخاص 
بالأداة ComboBox‏ 


“جسم ماري ملب يسيج لس النقاء حول الشفس ويجرى قن കി‏ على ديلا مهام يرسا" = TextBorl Text‏ 





Case Else 
82"! "يرجي الختبار أذ‎ ( 
End Select 





. فز البرنامج SSS gs‏ الضغط على عفتاح ۴5 
- اخترأي HAS‏ عن عرع التحرير pally‏ > وتأكر عن تعريفه . 


0 ون‎ De 38 0 
كت بحس حور‎ റാം 0 Es ന്‌ لج‎ — ക്ക തള 
ടം س س‎ ee dS\yb\ ي الا لجمية‎ bamai\ اساه‎ 
TELE se 3201 = 2 See 
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f 


കാഞ യ 


أسئلة الكتاب المدرسي على الفصل الثاني (ES)‏ 


: مستعينًا يالكود التائي‎ ALLY) اجب عن‎ (൪) 
If x == SO Then 
Msg box )"تاجح"(‎ 
End if 
SSCL SL DS الرسائة وعليها التص "تاجح" حتدما:‎ 


= قان ناتج تنقيذ الكود هو : കത്താ ഭക ഭാം രതാ‏ 


× قان ناتج تنقيذ الكود കെ‏ : م ااه عه هاه ماه هاه لابه ع هاه اطع ويه به موده مامه لماعم عع واوا واء 


241 രാം Then aa aa مستعينًا بالصيغة العامة لجملة‎ 


If Conditional Expression (rari aaa) Then Code 1 





TEX Tom 50 തണ 
മട: ൮13൨൭ % "" 





ب -- يتم تتقيذ الكود إذا وقع الحدثت 
ت- نوح المتغير 26 في الكود ക‏ 


"Me-" —<‏ في الكود تشير إلى: ee‏ د 
ج- إذا تم إدخال القيمة (൭)‏ قي صندوق ai)‏ تج تنفيذ الكود هو : 6ج ما م ممه م موه ووه തം‏ 
)٤(‏ اكمل الجدول التائي يالكود a5‏ مستعينا بالصيغة العام الشرطية 


IF .. Then .. Else 
If Conditional Expression Then 


Code 




















ne a hp ആ = 22552 
: ല്‍ i ٭‎ രക്‌ ക്ക്‌ മ പ ണ്‌്‌ عر کے‎ ത کے‎ ര 
الا كرس‎ nana / سناع >== إغداد الاستاذ‎ ee ഹ്‌ SHE : > = کے‎ d>\yb\ ساساه التبسيط 3 ال<اسب لجدية‎ 
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5 011126 49 231 www .quesna.org altokhey@ yahoo.com 
58 7 ججح ڪڪ ڪڪ ڪڪ ج د ڪڪ ڪڪ د‎ 
എം വി പ Country പ്പി! قيمة‎ TAILS 15) "aaa AAAS «#«ظهار_ صتدو قل رساكة يحمل‎ TIS 
ജാവ" صتدو ق رسساكة يحمل كلمة‎ പക്കം أو‎ 


Dim xX As Single 






3 Me . TextBox1. Text 
IT x > BU Then 
MsgBox ) " a La) 
Else 
MsgBox ("aaa 3) 
End ITF 
കക രക ഭയ ലാ E ഭാ തന E O E തത്ത 0 
Dim N AS Long 
N = Me. TextBox1. Text قي مريع حتوان‎ 
If N Mod 2 = 0 Then مريع حتوانت صتدوق‎ 
MsgBox (aay py!) 
Else 
MsgBox قر دي"(‎ pd yt") 
End If 








VJ 
و کد‎ AG ق الأخطاء‎ ١ 
ആ, 
Dim X As Integer 
N — Me.TextBox<(. Te 


If N Mod 2 =O 


MsgBox (" ടെ.) 








(A)‏ اجب عن الأسئلة التاليةء بعد دراسة الكود التالي: 


1 هذا وعد‎ Sub Buttanl click (ByVal sender As Syste 
Dim tclegree As 51൨൮൮൨19 


claaroG = Ha. ToktHoxkl.Toxkt 
ജേഷ 1൭൦. Casas dagres 
cases O 
Me . Labal®. TERT — pia" 
case Is & Û 
Me . Label? . Test — "" السشر‎ cae" 
Casas TS = O 
1110111011 1110111111 Mia ജ്വാല . ജാ! = "nt : ت‎ 3 ഇം 
Endl Seleot 
لاص عا وت‎ ax Asa Exaaption 


ടും ലാ‏ ت- يتم تنفيذ الكود عندما يقع الحدث ٠ n‏ على أداة التحكم . ل 


Ma . കാമാ... TERT ടം Ww 
Ena Try 


en هو:‎ Degree ث- نوع المتغير‎ eee 


سلسلة التبسيط 3 الحاسب ഡി‏ س ഞ്‌ e‏ ج إغداد الاستاة / nana‏ الاخرس 
هحب ത്തു =e Bt ൦‏ = له 
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ک3 الل ചലി‏ كل 1 | 
ل ടട‏ ا | 
الحلقات التهكرارية والإجراءات Looping and Procedures‏ 
65) مقدمة : أحبابي الطلاب cc‏ 
في كيفية ua‏ كود ©200) محدد بنا ء على ناتج تعبير شرطى. صح ؟! 
كجرار كود 000൭‏ محدد لعدد من المرات !!! 


ارية LOOPS‏ باستخدام جملة For...NeXt‏ 











EGE 
റി 


MANET 







































هى أحد جمل التكرار ا لمحد خدم لتكراركود معين عدد محدد من المرات (أىع أن عرد عرات التكرار ععروف عسبقا ( 


For Variable = Start Value To End Value Step Adı Value A 

2 ال‎ 
Next [ Variable | പ്‌ 0 
حيثك )> ا‎ th 
(wiiVariable ٠ 
3 ‘Start Value ൭ 


نهاية 
Ge 2 a. Next il,‏ مت 
© إذا كانت قيمة الزيادة موجب 1 فإنه يمكن tep Add Value. 44s; AA‏ بارأن القيمة الافتراضية لزيادة 
العداد موجب. واستخدامها اختيارى وتستخدم فى | فى مطلدار ا لريادة . 
ba For ×= 5 To 20 4൧൦‏ الزيادة الافراضية هنا( _ 1 Fo 0 To 100 Step‏ الزيادة ١٠١‏ 


© كتابة اسم متغبر العداد بجوار NeXt‏ اختيارية وهذا معنى Next salt (uss‏ فى نصل اليه يقوم 








بالزيادة بمقدار الريادة إذا كان موجب ഥി.‏ مع قيمة النهاية وا ക്രാ‏ . 
© يمكن جعل فيمة البداية أكبر من قيمة النهاية وتكون قيمة زيادة salt yall‏ سالبوثال :2- For X= 10 To 2 Step‏ 
൭‏ عند استخدام قيم رقمية عشرية يجب الاعلان عن المتغبر من النوع العشرى Single‏ 
٠‏ يتم التكرار تصاعديا إذا كانت قيمة المتغبر أقل من أو تساوى قيمة النهاية , وتنازلياً إذا كانت أكبر من أو تساوى النهاية. 
کڪ വച.‏ 
تبدأ الحلقة التكرارية بكلمة FOF‏ وتنتهى بكلمة NeXt‏ ويحدد مع FOV‏ اسم متغبر Variable‏ يطلق عليه متغير عداد Counter‏ 
له قيمة بداية Start‏ وقيمة نهاية End‏ ويثم تكرار الكود Code‏ داخل الحلقة حتى الوصول الى قيمة النهاية . 


RR سے‎ es ps sve 
. . TT SS CE കത്‌ ا‎ ത്‌ کے ع م‎ Rs 
الا كرس‎ nana / كص كي إغداد الاستاذ‎ ട്‌ പ ച ത്താ ത. اطرا<ل کی‎ Sand ال<اسب‎ ൫ الذبسيط‎ മിഷ 
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اللأعراد قرخ 1 പ്ല‏ 'عر ضى الأعراد 
عن 1 إلى 3 كما هو موضح بالشكل ...>> 








يٺم دلك A‏ سوف تكنب الكود മഥ Code‏ على حريطة الذرفف . 
VAN‏ 
فر يطاة الآد فقا 


Dim 14 As Integer 
For H=1To3 
MsgBox (H) 


Wa 0 "١ ചരക‏ قيمةاستضير هم 


Dim M As Integer 
عن متغير العداد‎ oy! 


V For M=-1 to : 
اسرية‎ J مم‎ 8 Ha 


Msabox M 
"N "طياعة كيمة‎ ത്ത Aaa 


Vv 591‏ 
نهاية الحلقة التكرارية حيت يعود NN‏ (زيادة M‏ يواحد) 


0 


59 


ا هل قيمة ചടി M‏ 

إلى جملة For‏ ويختير [ന‏ العداد A‏ 

اتد ات TEE‏ الزياد ക‏ وبمتقدذ glade‏ ایت التتكرار = 
YT‏ 

M=2Z+1 يواحد)‎ M ر‎ Next 


نهاية الحلقة التكراريةء 1314 كاتت Ee‏ 
العداد ധി)‏ منت أو تساوصي قيمة التهاية AM‏ 
Alaa ഈ  Msgbox MM‏ اتلتكرار " 
aaa! Ac lala |‏ الجحديدة للعداد يعد الزبادة 
تقس clay!‏ السايق ടാ‏ هل Ml‏ أكير من قيمة النهاية 
(التاحجح False‏ ( 
laa Msgbox M‏ اتتكرار " 
Ac Lala‏ القيمة Sia‏ 5 للعداد يعد 531531 
M=3+1 (ats M 3533) Next‏ 
تقس Shay‏ السايق ذكرة هل قيمة M‏ أكير من قيمة التهاية 
(True ടി)‏ 


ساسلة الأبسيط 3 الداسب Sand‏ اطرا<حل ت - ي نے = SS‏ چ کک کڪ > alat| SE ചം‏ الاسناة / nasa‏ الاكرس 
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3 يعرض الرقم 2 وهكذا حتى تتعدى القيمة‎ ക്‌ MessageBox 












a Designed By: Fatma Abdallah ച اله 7 السابى لعرص الأعداد من لال‎ Gg 
RN A يكون كل رقم 3 سطر جديد‎ ഠാ صنوق‎ 
: ലം ١ : 


Private Suh Buttonl Click (ByVal sender As System.Object, By 
Din n As Integer 

12101 Text. = 1 
For N = 110 j 






= 
يستخدم معامل الربط [ بين النصوص ള്‍‏ وفى وصل 


ന 5‏ 101 
*© يستخدم اإآدر . 
قبل الحلقة التثرارية വ്ര വോ‏ 






| بذ سيد هه‎ ഞ്ഞും യം ے سيو‎ ന വിജി | 
L 


PE AAT ന്ധി 


جد نكرار الأرقام » وباستخدام کور '' സിലെ‏ لا ൮‏ » ولوضعها على أأكثر كد | ط؛ 
ودلك بكئابة معامل الربط Sw‏ رمز سطر 00൮ ഖം.‏ | 


> بعد baa‏ على ۴5 والزر نلاحظ 





له كرين لول قم بعمل برنامح بحيث يعرض جدول الضرب للعدد (؟) ف النص . وذلك عند النقر على مفتاح Joly‏ ؟ ؟ 

Dim ന, Product As integer 
Dim str As string الها‎ 
Me.TextBox1.Text='" " 
For m =1 To 12 ലാ 

Str =3 &"X" &m & "=" 

Product = 3 * m 

Me.TextBox1.Text= Me.TextBox1.Text & str & Product & ഗാല 
Next m 


ne a pe =P ജോ. 
. ٠. a ഏത ളി کے‎ a 4 ക്‌ പ ا اق‎ TT ا ع‎ 
الا عورش‎ മുചഥുല / الاإسناة‎ alat| ine ക ട്‌ يكت‎ =e ന ച്ച =a ലം ل‎ 1 പ്‌ റ്‌ سے‎ 
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8 : 0111 26 49 231 www .quesna.org altokhey © yahoo.com 
0 പ്ര م عمل‎ ധി فى اطثال‎ 
കപ لتخزين حاصل الضصرب يه مع كل تغيير فى‎ (product) pls صحيح‎ പ്രാ تم تعريقا متغير‎ റ 
(ഗീ) പ്പി! 
تحصل على التاتج بالشكل‎ aay لتخزين شكل جملة حاصل الضرب‎ (str) ؟- تم تعريف متغير حرفي ياسم‎ 
وهكذا) كسلسلة نصية مع كل تغيير فى قيمة المتغير (ال1).‎ Ix او‎ മാട) التالي‎ 
call في صندوق‎ (product) ثم قيمة المتغير‎ പി تم عرض قيمه المتغير )55:00( ثم معامل‎ -ന്‌ 
(TextBox) 
‘r= كما‎ (Variables) يمكن كتاية الكود يدون اس ام هذه المتغيرات‎ - #٤ 
പ | حسل تسيب‎ പഥ [| ഘി ستسل‎ | 
For m= 1 To 12 ١ 
LES 
Me , TextBox1l . Text = Me.TextHoxl.Taxt ൧ 3k x 3 * لآم‎ 111! 
Haxt = 
NAA 
؟؟‎ TextBox نص‎ ജും ول الضرب الخاص باي رقم يتم إدخاله عن خلال‎ പ بتعد یل البرناب السا‎ © 
Dim m, product, NUM As Integer | 0 


Dim str As String 


Me , TextBox? . Text 


He. TextBoxl . Text = "" 


For m= 1 To 12 


str = NM ഹ പ്ല 
product = NUM 0 പ്പി 
5. TextBox1 .Text = Me.TextBox1 .Text 7&/str © product & vbCrLf 
Hext ഇ 2 4 

ലവം دن استخدام المتفيرات ...و 1 بق بدون‎ 07 ക ن‎ 
Dim M As integer ۱ Pi - 


Me.TextBox1.Text =" 
For mM =1 To 12 
Me.TextBox1.Text- Box1.Text & 3 & "0 


Next m 4 9 
TALI الكود ولنبسيط‎ 


A 








٣ 


N 






١ 







لزا كانت زيادة bs Oud ൧44!‏ كما ര!‏ 
أخرىه بعد ൧൭ Step‏ لون قيمة رقمية 


لاحظنا في التدريبات السابقة أن قيمة البراية دائما أصغر 
كانت ച‏ الزيادة الافتراضية (Sy usp)‏ وللن كلننا 
صحيحة أو عشرية CaS‏ أو سالبة. كما فى الأعثلة التالية : 





For I = 1 To 10 Step 2 
Me . TexktBoK1. Text Me. TextBoxl . Text & I & vbCrLf 
Next 


For I = 2 To 10 Step 2 


Me . TextBoxl . Text = He. TextBox1 . Text & I & vYECrLrf 
Next 


_ 5 539 es ١ പ ത്തം = ഈ س به‎ 
الا كرس‎ nana / മഖ ലം മതു هت‎ = ച a _ حم 2 هه‎ ZT ഞ്‌ en الحاسب لجمية اطرا<ل کے‎ 4 bamaidl ساساة‎ 
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For I = 3 To 20 Step 3 
Me . TextBoxl . Text = Me. TextBoxl.Text & 1 & vherLf 
Next 


For I = 10 To 1 Step -2 
He. TextBox1 . Text = He. TextBox1. Text & I ശ vhirlLf 
Next 


For I = 1.5 To 0.5 Step لا-‎ .5 
Me. TextBoxl . Text = He.TextBoxl . Text & I لط‎ vbirLt 


For I = 1 To B Step t 
Me . TextHox1 . Text = He. TextBox . Text & I & ണ്‌ 





|= مکن ധ‏ معدل Step 8 നം‏ ثم كنابة قيمة رقمية أو مذغير رقمى. 


[04 فى حالة وجدود قيمة البداية أكر من قيمة النهاية | مثال‎ ad 
البداية أو النهاية أو مل الزيادة أن يكون عرد عشري وفى هذه الحالة جب نعريف منغير الحلقة من نوع يقبل‎ u/s - ۳ 









ل മയ്യ‏ جب أن 





a ف‎ || റ്‌്‌ 
: :وهما‎ For ... Next a! ച്ച്‌ . Next تلخيص أكواد‎ 1-1 


rope -فى حالة وجود‎ ١ 
«تكون ل‎ 






For a =1 To 9 Step 2 
For x = 24 To 14 Step - 
: Dim i, x As Integer 
: X=2 
: Fori=1 To 10 Step 
: X=X*2 
: داخل الكرل.‎ 8 
: Next 
SENS 







)1( الهالة لأولى : 

فى حالة وجود مربع الرسالة قبل 
أى داخل التكرار فتكون قيمة العداد 
١ - 1 , 5 ,9‏ ال ار 


فى oe Sts‏ وجود مرخ الرسالة بعد كلمه Next‏ 








أى خارج التكرار فتكون قيمهالعداد هى 
قيمة واحدة فقط وهى القيمة الأكرمن فيمه انول 


وهی : 13 =| م استبد ال MsgBox‏ ب Label‏ أو TextBox‏ : 
(ج) الحالة لثالثة : ودر ൽ‏ م O niin‏ 

فى حالة عدم وجود مربع رسالة MsgBOX‏ ا د Dim a,x As Integer‏ : 

فنقوم بعمل جدول نستخرج منه كلاً من قيمة قيمة المتغيرين. 2= X‏ : 

: For a=2 To 9 3 : كالاتى‎ 


മാമ ١ ATX 
ലി ചാന്‍ a 
X=16 وتكون قيمة‎ 8 | 16 | 

وحتى فى حالة وجود مربع رسالة بعد Next‏ سيكون الناتج كما هو 16 = X‏ 


3 0 ന هه ص تمه‎ ത്‌ T= വ 
الا كرس‎ nana / alimll إغداد‎ 5 ഇ سم‎ ss کے جڪ کے سے < س‎ d>\yb\l Sans ساسلاة النبسيط 3 الداسب‎ 
a عي تي‎ 0 ഞം. ge 0 چ 3 س ب‎ നന്ന FE 
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؟) اسستخدام Do While‏ | یی 
:* الاسنخدام: تستخدم لتكرار كود 0006 معين لعدد من المرات غير معروف نهايته مسبقا , وإنما بناء على 
شرط معين ... ولذلك نجد أنها مفيدة فى حالة عدم معرفة عدد مرات التكرار بشكل قاطع 
























Do While conditional expression تعبير شرطى‎ 
code 
Loop 


0 
ധം For‏ ادطال رقم 2 
ر" الأعا الفردية " ينه ابرض 
0( 











| أعداد فردية | 


| ക്യ أعداد‎ | 


Dim NHN, i As Integer Lim 18, 1 As Integer 
casa ne 0 | TextBox] . Text 
1.1 5 111൧51 . Items .-Cleari{i}) 000 00 
ListBox1l . Items . Clear ( ) 


ത്തം നി For 1 = 1 To N Step 2‏ يلت 
ത ListBox1 . Items . Add (2)‏ 
Next‏ | 





واجي : 
** قم بنفسك بلتابة الود الخاص بعرض الأعراد الزوجية فى معالج الحرث الخاص بزر " أعراد زوجية". ؟؟!! 
** قم بالتعريل اططلوب فى التدريب കി‏ لعرض الأعراد الزوجية أو الغردية مرتبة تنازليا بدلا من تصاعريا Js‏ 


Fatal glo. 
0 5 53 മ്മം جيه ييه‎ _ ത്ന 1 
3 5 - بسي > 1 به زعم کے اسح‎ De Be 08 سے‎ Te ع‎ ട്ട يو‎ 5 8 
الا كرس‎ nana / വിധ! إغداد‎ ae — Tg വ med 5 کے کڪ کک س مر‎ d>\yb\ ي ال<اسب لجدية‎ പി alls 


© 
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صمم نافزة പ!‏ بجي يستقبل عرد موجب. فيعرض مجموع الأعراد الغردية 
في الآداة Label3‏ حتى الرقم الز ي تم إدخاله عند الضغط على زر 

"مجموع الأعراد الغردية" في >61 label3.‏ 

وبعرضښ Fea?‏ الأعلراد الزوجية في ൧൧‏ 3ا206 احتى الرقم الز ي تم إدخالة 














| ١ | : ىتالاكاهط٥ا3 الضغط ع الأعراد الزوجية" في الآداة‎ xe 
الخاص بزر الأعداد الفردية) بطريقتين كما بلى:‎ CliCKodat! الحل : 3 الكود فى إجراء‎ | | 
الطريقة الأولي | الطريقة الثاتية‎ 
Dim N, i, Sum As Integer Dim 1, i, Sum ASE 1Eeger 
N = TextBox1. Text N = Texte wh. TS 
1 = 1 ١ 
Do While i <= N ror 1 = ൭.൭൬ 2 
sum = sum + 1 e + 1 
و ك ق‎ + 2 Next 
Loop 0 
Labels. Text = sum Label3? Text = STM 


- 























vw 






ف الكود രാധ!‏ لعرضع م اد ൫.‏ عند الضغط على زر 'مجموع الأأعراد الزوجية.؟؟! 
ES gS 7‏ 
للا وو 
Brocedurke es; | Pro8 0169| ടിനി‏ 


65 مقدمة : مقدمة :_طلابي UN icy‏ 


عند إضافة نافذة موذج orm‏ 





® * 


ينشاً تصنيف 55 باسم نافدة النموذج 

۴1 وفي نطاق هذا الت ن إجراءات Event POC ES sual‏ وأيضا الإعلان عن 

المتغيرات Variables‏ والثوابت GONStant‏ سواء Jas‏ نطاق إجراءات الأ 9 

f...then مثل جمل‎ HOCK. التصنيف » كما يمكن الإعلان عن ما‎ alas 

Kî 31/1 حيث 25 من الكود المقايل‎ 
Private 5-7 sender A y ONE CSS ang 


വി عرض الأعداد‎ VI total , i tui تن‎ variables Olan ؟-‎ 
Event procedures إجراءات الاحداث‎ -¥ 





For 1 അ 1 To 29 Step 2 
Button1 Click اسم.‎ us 


Labell.Text = LADELL.T EAC & 
AAAS Button2 Click 
Private ധോനി sender As Syacem,Obijsc تطهر واجهه المستحدم‎ Cw byl وعد نشعيل‎ 


‘10 1 1 cy മം! 110, عرض‎ 
Di An Integer 
Labeli . lext അ ب‎ 


For i യ 2 To 1Û Step 2 
Libtll TEXT ടേ Labtlil. Text 5 " " 6 13 
ട്ടാ 
End Sub 


HEXC 
End Sub 








End Claas 


_ 3 8 00 مح حو سے‎ 5 ത്തു 
إغداد الاستاذ / فوفد الاكرس‎ ലം ളു ട്‌ > _ SE س >296< چ‎ ms =e ee en کے‎ d>\yb\ Sand വധി التأبسيط ي‎ പ്ല 
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= ailill sul all doall — salellléllill nll — سلسلة التيسبط مج الباسب الالح‎ 


كما نستطيع الإعلان أيضا عن ما يسمي بالإجراءات lag Procedures‏ عذها مرة واحدة ويمكن استدعاؤها 
العديد من المرات مما يوفر تكرار كتابة الكود COE‏ ف أماكن استدعاء هذة الإجراءات . 
كما لا حظنا من കപ!‏ :أن الكود 004٥‏ المكتوب Jats‏ كل من إجراء الحدث Event procedure‏ 
الخاص Button1_Click‏ متكرر ما عدا قيمة البداية في عملية التكرار حيث نجد الأعداد الفردية بدأت بالقيمة ١‏ 
ولو كانت الأعداه زوجية لبدأت بالقيمة Y‏ 
A‏ 

, Procedures dljal| تعريف‎ + 

ച ന്‌‏ والتعليمات 0006 تحت اسم ما عند استدعاء هذا الاسم يتم تنفيذ هذه الأوامر والتعليمات 

4 - ٠. ജു ١ മ. ° ١ ٠ 

ونلجأ لانشاء 8 إيكان لد بنا جموعة عن الأواعر يككرر Bot Sint‏ أكثر عن موضع داخل التصنيف 


wm ജ്ജ ജട ജട mes ജട ജ്ജ ജയ ജ്ഞ ആപ 











a TE : ൽ 3 ١ sec tee 
¦ : إها أن تكون‎ Visual Basic .NET aa 8 Procedures: أن هذه الل‎ 49. 
ظ‎ കവാലി إجراء فرعى‎ ١ ١ 
| 1 
A لعود بشيمة.‎ uhction دالة‎ ٣ 


വി‏ الإفلان عن [Sub ad‏ اة 
3 1 
لجا لان Ph‏ في حالة : 0 


إذا ما كان ا کو Cp‏ سينكرر ALLS‏ في أكد عن موضع داخل النصيف Class‏ 


Bll‏ عدن كيو[ 















Code 
EndSub 







ns Name -\‏ عن اسم الاج me‏ 
Parameters -f‏ عباره عن اليم ال استخدامها داحل تود | 


Code -‏ مجموعة الاوامر والتعليما الم 6 clei}‏ الإجراء Sub‏ 
| 19 ن الإعلان عن | IB‏ 5 واستدعاده : 
تذكروا أعزائي الطلاب أنه تتستخدم !+ Sub‏ دام م نکرار کنابه الكود A / Code‏ 
ني الشكل المقايل: A‏ 
تم الإعالان عن إجراء تحت اسم 
ShowOddOrEven‏ وكتابة كود Code‏ + 
نطاقه ينفذ هذا الكود COE‏ عند استدعاء هذا 
الإجراء ©1ل 210660 حيث كتب اسمه في كل من 
إجراءات الأحداث Button1 Click‏ و 
Button2 Click‏ 





E Public Class Forml 
Dim total As Integer 





Private Sub Button? Click (ByVal sender As System.0b 
110 إلى‎ 1 പം أعداد الرّوجية‎ 


Subs! yey! استدعاء‎ 


Dim 1 As Integer 
Labell.Text = നന 


: أنه‎ >We 

عند ധ്‌.‏ البرنامخ جد أن വല‏ زوجى ലാര‏ فردي 
عند الضغط على أي منهما يعطى نفس النثيجة 
والسبب أن قيمة بداية عملية 02-1൭)‏ وهي 
القيمة ]\[( Gian‏ امد 


85 ക 5 س سے‎ = 2 58 ٠ 
. ٠. ےک ا“ س‎ = തം അയ سے 3 سی‎ ത്തി = ع‎ ഞമ [1 1 
ل _ حتت‎ =a > د 2-2222 3 اکل‎ 
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الاستخدام: : للإطلاع : للاعلان. ve‏ : 
تستخدم Parameters‏ كوسيلة استقبال قيم من خارج الإجراء غير sub E ParameterName As Datatype) ١‏ 
معلومة مسبقا وان alas‏ عند استدعاء هذا الإجراء End Sub : Procedure‏ 
تذكروا : 6 أطشكلة السابعة فى ١( ays‏ )لابد أن يستقبل ShowOddOrEven ൮‏ قيمة 1 أو 2 


عند اسندعاءة ശ്വ‏ هذه القيمة 9 ديد ما إذا كان سيم عرض الاعداد الفردية أم الزوجية وذلك ياضافة വ‏ 
١‏ 
Start‏ و اسر اقل بعد. ولحل مشكلة التديريب السابق لاحظ الإعلان عن الوسيط Parameter‏ 


Sub ShouOddOrEven (ByVal Gtapt As Integer) 


TH 


Labell Text = 


تم الإعلان عن إجراء 
ShowOddOrEven‏ و 







TY 10 11 Step 2 
Kz Labell.Text % "" 1 


استخدام هذا Parameter‏ 





Private sub Buttonl Click (ByVal sender 


عرض الأعداد القردية من 1 إلى 10' 
showlddorEven (1)‏ 













تم استدعاء الإجراء SNOWOddOrEven‏ مرتین مع 


إعطاء قيمة مختلفة تحدد هل يتم عرض الأعداد الفردية ല്‌‏ 










he Click (Byval sender 
10 إلى‎ 1 pf عرض الأعداد الزوجية‎ 
5101070000 دع ع‎ (2) 
End Sub 


ച! 


يطلق على هذه القيمة Argument‏ 















2 ۸ 
yoy‏ من الشكلين أعلاه أنه : عند اخلبا .1 A do‏ 
ഗ്ര‏ أن <١‏ 


[ مخثلفة كما هو موضخ بالأسفل‎ uid പ്രീ 










[ തി ag 


a കിം 9 





عند النقر على زرفردي 





عند الاعلان عن إجراى Procedure‏ يمكن استخدام Si‏ من Parameter‏ نفص بينهم بعلامة "," 
عند استدعاء الاجراء نحديد قيم من خارج الاجراء يطلق عليها Argument‏ 


ന്തം ജോ, Pe‏ ع 
E‏ سے അമ‏ الل سے 5 2 — س 58 
ahh‏ التبسيط ي ال<اسب d>\yb\ and‏ کے _ سے < س ss‏ == 56 ا nana / മഖ‏ الا كرس 
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¥( الاعلان عن الدالة a [| Function‏ 
الدالة FUNCTION‏ عبارة مجموعة من الأوامر تحت اسم معين . يفضل أن يكون معبرا nt lo‏ 


عن وظيفتها- يتم تطبيقها على مدخلات أو وسائط വം PATAMETErS‏ 
Functio‏ ف حالة إذا ما كان لرينا كود C04٥‏ سينتج os‏ قیمة ൭൦൧3.‏ . 
el‏ > صافي أجر العامل La yall,‏ المستحقة ... الخ حتي يمكن استخدامها أثناء تنفيذ تعليمات البرنامج 









Function Name (Parameters) As DataType 


Code الصيغة العامة ا 6ه‎ || ||| 
Return Value VAN 


EndFunction 











: تعبر عن اسم Function ല്ല‏ 

: تحدد نوع البيان الخاطلة بالقيمة الراجعة من Function ചല‏ 
الوسائط التي سو 9 الكود Code‏ 

عة الأوامر والتعليمات غذ عند استدعاء الدالة FUNCtIiON‏ , 
القيمة الراجعة من الدالة "Fyn‏ 


9 ion الرالت‎ 




















لا کن خخصيص قبم ۵ا .554 e രര‏ 





على الدالة e‏ 


- اص ه) 8 0 
]1[ قم باعداد نافزة النموخ Form‏ 


[T]‏ قم ലു‏ نافذة الكود ഡിം‏ الكود 58 3 العدد الأول 
Public Class Forms‏ 
Function(GuMEyVal First As Single, ByVal Second As Single) As Single‏ العدد الثاني 
Dim total As Single‏ 
First + Second‏ = س 
Return total‏ 
End Function‏ النتيجة: 


End C1338 


5 -تم الإعلان عن الدالة SUM‏ النوع ua SINgIE‏ تستقبل قيمتين وهما First‏ و Second‏ 
تم الإعلان عن متغير total‏ من النوع ©5101 ثم تخصيص له ناتج جمع القيمتين First‏ و Second‏ 
لإرجاع القيمة Return ചല total‏ 

5 القيمة total‏ يتم تخزينها في اسم الدالة SUM‏ كما سيتضح عند إستدعاءها. 





ളാം. ത്‌ കട്‌ 5 =‏ 3 7 س سے = 
سلسلة التبسيط 3 الحاسب لجمية TTT TGs‏ === کے کے — = >= ڪڪ د ത്ത‏ إغداد الاستاذ / nana‏ الاخرس 
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Nn uh | Buttonl (110281 sender 24 ഡി نقوم بانشاء إجراء الحدث الخاص بزر الامر 80011001 ثم‎ [ 19] 
im x û3 single = 1821051 Text SUM كما هو موضخ بهذا بالشكل لإسندعاء الدالة‎ 
im y As Single = 1851052 . 12 
Label4,Tegt = 22%, ¥) 

End Sub ന്തു 


لتغيرين ا و لا ونخصيص مدخلات المستخدم لكل منهما في صناديق النص 167115017 ولعرض ناتج الجمع 
تم تخصيط فيهة الدالة SUM‏ للخاصية Text‏ الخاصة بأداة التحكم Labeld‏ بعد استقبال القيمتين × ولا 








a 
SY\ تنتج من المتال السابق‎ 










؟ تحدد نوع الدالة 61106 
ه تعود الدالة Return‏ 


إذأ : يعصل نسحصية الروال 


و 








الدالة Function‏ لبد وأن A ന്ന‏ انج 


5 -الإجرادات SUD‏ لا يجوز استخدامها في أي جملة 


إجراء sly! waa EventProcedure വച‏ من ال 
؟ -وسيطالاجراء 00000൦006൦‏ إما أن يكون قيمة مجردة أ Variable‏ أوثابت Constant‏ 


Function Ata أو‎ 






آيها الايت بے الو SY‏ يايات — للكير > مقتو كان : 








enhanc >‏ ا ا ا 
لظا لظ لظ لظ لظ لظ لظ لظ لظ لظ لظ ظظ 8ظ !8ظ !ا !8 8ظ 58 158 5 





LLL LLL i 


ا ا و E E ത്തു, Ra‏ و TEER SERRE EE Gee og‏ 
ട്ടം ee‏ س = 
മ . 0‏ مب = Tn‏ سے اا ا ക്ക്‌‏ > 21 ببس Te ജം‏ ت a e‏ ° ° 
ساسلة التبسيط 3 الحاسب لجدية اطرا<ل کڪ احج دا ളും‏ سم ത്ത്‌ ma‏ ا إغداد الاستاذ / nana‏ الا كرس 
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= ailill مج الباسب الالح - للمف الثالَ الإعدادج - العمل الدراسج‎ hill سلسلة‎ 
5 سسا‎ bk. 011126 49 231 www .quesna.org altokhey © yahoo.com 
AEE 
Private Sub Button1 Click (BY പ്പി മം കാക രപ! فجب حن‎ (൭൮ 
Dim MH As Intege ൦ یتم تنقيذ الكود حتندما يتم الضغط‎ i 
Eor 28 + 1 To 3 CoD FEE آداة التحكم‎ ചല. ത്തി _ 


















MsgBox (13) 0 530 ! അ 
للإحعلان عن‎ Dim ചവി! aA 55 
Enid Sub കടെ ثايت) من توح‎ — | 
നത്തു : المستخدح في الحلقة التكرارية هو‎ HE 
EE التكرارية‎ ച്ച്‌ — 3 


Dim m As Integer 
Me.-Lebell-Text = """ 
For m = 5 To 9 Step 2Z 
Me.labell. Text = Me.labell-Text & 


MsgBox ("qa salt 77) 
End Sub 


ح- الغرض من استخداح معامل” الرب 
(Me-labell-Text & m‏ هو : പ്ര‏ 
خ- اكتب مكان التقط Alaa‏ الكود الالازمة 
التكرارية في Raya‏ صندوق ريسالة: 


(۳) اجب عن ALYY‏ التالية». مستعينًا یالکو د 


Dim n, product As I 
Dim str As String 
Me-.TextBox1l-Text = """" 
For n = 1 To 12Z 
Str = 3 & "° 2: " & n & °" 
product = 3 * م‎ 
Me. 'TextBox1l-Text = Me. റാം. & str عي‎ 
product & vbCrLf 
Next n 
End Sub 


PRE Ee چ‎ = ££ 
. . — EE = CC ക്ക്‌ ES E 
الا كرس‎ nana / إغداد الاستاذ‎ പതം തട ത a ത്താം ത്തോ اطرا<ل کے‎ Sand التبسيط 3 الحاسب‎ ahd 
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EER RD ന aaa قي‎ ۲٣ പടി! تلخصيصر تات ریب‎ (product = 3 ൬ صن اتكود‎ save ചം 
(Ua س‎ ea) product 


Product قي المتغير_‎ ۲٣ تاتج ریب الرقم‎ aaa (product = 3 * nN) SSW من‎ ave ജ്‌ 
(UA س‎ ea) ൩ تلصتخير‎ 
الغرصضر من الكود‎ — 
Mle. TextBox 1 -Text = Me. TextBox 1 -Text & Str S&S product & vbocrLf 
പടി! 3 تصستدو‎ tert كقيمة تللخاصصية‎ product പപ്പി وتاتج‎ StF gaa قيمة المتغير_‎ ക്‌ 
(UA — ea) _ TextB o> 1 
(Ua س‎ a)  ديدج الاتتھال إتىى سطر_‎ vbCrLf اتکو د‎ Sa 

















A‏ جدو ل کضر ب CA) AALS ചി.‏ عست ١‏ + * وى 
اتکو د يحت يطيع جدو Faas CT) മ്‌ sta a peal വ്‌‏ یکو ات التاتج کې صتدو قن ait‏ 


AN 


ജോ 55 
ടോ و4‎ 
ടോ ©3 
Dim mn, product As Integer 
Dim str As String 


Nie. TextBox Text == rrr 





For n= 1 To 1 2 





nm Ss 0*0 ="‏ عه 





Str = 4 Sz >< 















Product = 4 ™ mn 


vie. ‘TextBox Text = Mle. ‘TextBox 14 Text & Str Sz 
product SS vbhbC rl fF 


Next mn 





a A Lala ca Ut)‏ کک 
4 ويد حخظات വ്‌‏ _يعة 





പിര ചാ ae രി کس‎ 
Yin ns. product As String 
Dim Str As String 





Ne TextBox Text == rrr 





For അ = 8 To 10 Step —1 
Str = DS >< "" Sema * 














product حت‎ Som 


൩8൭... ‘TextBox 1 


Next Str 


End Sub 





| 4 7 4 
mem Gs + EEE Woo ലാവാ‏ 
കള്‌, TV‏ 5 
REE OS RE WA‏ 
ഷ്യ‏ “_ 
)٦(‏ الجدول التالي يحتوي على الكود ونافذة النموذج الخاصة بتظلشيل ര്യ‏ 
المطلوب: اكمل مكان النقم بما يلزم للكود بالجدول لنحصل على ناتج a‏ 
ലി 1‏ 











Dim m, product, NUM As Integer 
Dim str As String 


NUM = Me. TextBox? .Text 


Me. TextBox1 . Text = "n" 
For m= 1 To 


പ. ee Sa 
product = NUM ൪൯ === یے‎ 


Me . TextBox1.Text = Me. TextBox1.Text & str & product & vbCrLf 




















Ta UGS ادد‎ SSL مس تعیحَا‎ A Lina CI ast CV > 
> E തി അ. زح يذ نب‎ അം > Ces E> ج‎ 


Ns - “TS IE tC vc TL - Tse tt سے‎ Dey ے‎ E يتحت جح > عبر حت‎ HL ... "TET Pe യ “= അപ. അ Lt 
PTET 


1 الكخر حر ى سمو കാട.‏ 


nua ഞാ താ ഞാ ഞാ താ ക ഞാ അ ഞാ കാ ഞാ കാ അ താ ക ങാ ത താ ത താ ത താ കാ ങാ കാ താ കാ ത ഞാ അ ത ത ങാ അ താ അ താ താ താ ത്താ ഞാ ഞാ അ കാ ക താ കാ ഞാ താ ഞാ ത ഞാ കാ താ താ താ 


= ا ا‎ മ്മ മ്മം ال ال ا ال ا ل ا ا ل ل‎ ത്മ ത്യ ശ്ച മ്മ ഞമ്മ യക്ഷ മ്മ ത്മ ا ا ال ا ال ا ال ا ا ال ل ا‎ ത്ത ങ്ങ ±= മ കം തിം اسبح‎ കള്‍ 


a 00 മം عم ص س‎ 
كه د‎ eam و‎ 
الاخرس‎ nana / إغداد الاستاذ‎ pe — eee SC fon Ser Sen CL 
5 HH ന. PR = 1 کوس‎ 
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" إعداد كلمة مرور لا تساج . 
۴ عدم نشر أى Dbl‏ خاصة . 


lu عدم ارسال‎ ٦ 
اطلاع ولى الأمر‎ ۷ 


١ AN We 
. انزال البرامج من | كوئ تحت إشراف معلمك أوولى أمرك‎ 4 
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وأخيرا. 


اختيار كلهة سر ذات درجة വടക‏ عالية . ختوى على أرقام وحروف وعلامات خاصة. وأكثر من 8 حروف, 
3 - لا تشارت لأحيد بها - لا تكون على أسماء الشهرة التى aby Lat‏ عائلتك 


مع ര‏ فتر 
ومنها ١‏ 





مواقع التواصل الاجتماعي تساعد في التعرف 
نتطوبر العلاقات الاجتماعية. 


تمشيًا مع قواعد الاستخدام اللآمن يفضل أن تضع كلمة مرور سهلة للبريد الإلكتروتي 
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رأيك في ضوء قواعد الاستخدام الآمن 


കുര‏ ج اين 


. തിക എനിക്കി കി 


التي تم تهديدك يها في 
باعي أو البريد الإلكتروني. 





السنوؤال التالت: مواقف Asa‏ 


ചി (൨)‏ أحد الأشخاص قي أحد0مواقع التواصل الإجتماعي. كلما راسل sal‏ الأعضاء أو حاول إجراء 
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لتواصل الاجتماعي وقو 
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